# read in CA oil spill data
ca_oil <- read_sf(here("part1_spatial/Oil_Spill_Incident_Tracking"), layer = "Oil_Spill_Incident_Tracking") %>%
clean_names()
# Read in the CA county data (TIGER shapefile):
ca_counties <- read_sf(here("part1_spatial/ca_counties"), layer = "CA_Counties_TIGER2016") %>%
clean_names() %>%
select(name)tmap_mode("view") # interactive mode
tm_shape(ca_oil)+
tm_dots()